<% Response.Buffer=True If Session("login")=True then %> <% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn If Request.Form("act")="Editing" Then If (Request.Form("txtreference")="" OR Request.Form("txtstatus")="") Then Response.Write("
Form not completed fill,click a back button to check it out your form
") Else Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "Select * from reservation where r_id="&Request.Form("id"), ObjConn, 3,3 ObjRs("r_reference")=Request.Form("txtreference") ObjRs("r_status")=Request.Form("txtstatus") ObjRs.Update objRs.Close ObjConn.Close Set ObjRs = Nothing Set ObjConn = Nothing Response.Write("

Reservation form has been update.") Response.Write("") End If Else %> <% Set ObjRs=server.CreateObject("ADODB.Recordset") objRs.open "select * from reservation where r_id="&Request.QueryString("id"), objConn,0,1 %> ADMIN ROOM

 

RESERVATION STATUS

<% set ObjRs3=Server.CreateObject("ADODB.Recordset") ObjRs3.Open "Select * from author where a_id="&session("level"), ObjConn, 0,1 %>
Name: <%=objRs("r_name")%>
email: <%=objRs("r_email")%>
date: <%=objRs("r_date")%>
time: <%=objRs("r_time")%>
place: <%=objRs("r_place")%>
package: <%=objRs("r_package")%>

Reference :

Status :

">

  

<% ObjRs3.Close Set objRs3 = Nothing ObjConn.Close Set ObjConn = Nothing End If Else Response.Redirect("HOME.asp") End If %>